home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Sound / Euterpe / Installation / Install < prev    next >
Text File  |  1997-10-04  |  3KB  |  128 lines
  1. (complete 0)
  2.  
  3. (set default_lang 4)
  4. (set #introduction
  5. (cat "\n\nInstallation of Euterpe.\n"
  6. ))
  7.  
  8. (set #bravi
  9. (cat "Installation is not possible."
  10. ))
  11.  
  12. (set #quel-disque
  13. (cat "Where do you want to install Euterpe\n(A directory will be created) ?"
  14. ))
  15.  
  16. (set #quel-disque-aide
  17. (cat "Select the drawer or volume where the installation should be made."
  18. ))
  19. (set #oui-prompt
  20. (cat "Installation of OBJECT USER INTERFACE catalog files."
  21. ))
  22. (set #oui-prompt
  23. (cat "Installation of AsyncIO.library."
  24. ))
  25.  
  26. (set #startup-prompt
  27. (cat "Adding Assign Euterpe: in user-startup."
  28. ))
  29.  
  30. (if (= @language "français")
  31. (
  32. (set default_lang 16)
  33. (set #introduction
  34. (cat "\n\nInstallation d'Euterpe.\n"
  35. ))
  36.  
  37. (set #bravi
  38. (cat "L'installation a échoué."
  39. ))
  40.  
  41. (set #quel-disque
  42. (cat "Où voulez-vous installer Euterpe\n(Un répertoire sera créé) ?"
  43. ))
  44.  
  45. (set #quel-disque-aide
  46. (cat "Sélectionnez le disque ou répertoire où l'installation doit être effectuée."
  47. ))
  48.  
  49. (set #oui-prompt
  50. (cat "Installation des catalogues pour l'interface OUI."
  51. ))
  52.  
  53. (set #asyncio-prompt
  54. (cat "Installation de l'AsyncIO.library."
  55. ))
  56.  
  57. (set #startup-prompt
  58. (cat "Ajout de l'assignation Euterpe: dans le fichier user-startup."
  59. ))
  60.  
  61.  
  62.  
  63. ))
  64.  
  65. ;---------------------------------------------------------------------
  66. (set installLoc (pathonly (pathonly @icon))
  67.      installEuterpe (tackon installLoc "Euterpe")
  68.      installCats (tackon installEuterpe "Catalogs")
  69.      installFonts (tackon installLoc "Fonts")
  70.      installLibs (tackon installLoc "Libs/AsyncIO.library")
  71.      installOuiCat (tackon (tackon (tackon installLoc "OUI_Catalogs") @language) "oui.catalog")
  72.      targetOuiCat (tackon "LOCALE:Catalogs" @language)
  73.      targetFonts "FONTS:"
  74.      targetLibs "LIBS:AsyncIO.library"
  75. )
  76.  
  77. (delopts "oknodelete" "force" "askuser")
  78. (user 2)
  79. (message #introduction)
  80. (user 0)
  81. (welcome)
  82. (set old_level @user-level)
  83.     (user 2)
  84.     (set target (tackon (askdir (prompt #quel-disque)
  85.                         (help #quel-disque-aide)
  86.                         (default "SYS:")
  87.                         (disk)
  88.                 ) "Euterpe")
  89.     )
  90.     (makedir target
  91.              (infos))
  92.  
  93.     (user old_level)
  94. (set @default-dest target)
  95. (complete 10)
  96.  
  97. (set targetCats (tackon target "Catalogs"))
  98.  
  99. (copyfiles (source installEuterpe)
  100.            (dest target)
  101.            (all)
  102. )
  103. (complete 70)
  104. (copyfiles (source installFonts)
  105.            (dest targetFonts)
  106.            (all)
  107. )
  108. (complete 75)
  109. (copylib (prompt #asyncio-prompt)
  110.          (source installLibs)
  111.          (dest targetLibs)
  112.          (confirm)
  113.          (help @copylib-help)
  114. )
  115. (copylib (prompt #oui-prompt)
  116.          (source installOuiCat)
  117.          (dest targetOuiCat)
  118.          (confirm)
  119.          (optional nofail askuser)
  120.          (help @copylib-help)
  121. )
  122.  
  123. (startup "Euterpe" (prompt #startup-prompt)
  124.          (help @startup-help)
  125.          (command (cat "Assign Euterpe: " target))
  126. )
  127. (complete 100)
  128.